home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / LO-RES DUMP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  56 lines
  1. 0  REM  ***************
  2. 1  REM  * LO-RES DUMP *
  3. 2  REM  * GLENN TEMAN *
  4. 3  REM  ***************
  5. 4  REM 
  6. 10  GOSUB 1000: REM  INIT
  7. 15  PRINT : PRINT "LO-RES DUMP....": PRINT 
  8. 20  PRINT : GOSUB 500
  9. 30  FOR Y = 0 TO 39
  10. 40  PRINT : PRINT L$;
  11. 50  FOR X = 0 TO 39
  12. 60 S =  SCRN( X,Y)
  13. 70  PRINT C$(S);
  14. 80  NEXT X
  15. 83  PRINT L$;
  16. 85  NEXT Y
  17. 90  PRINT 
  18. 100  GOSUB 500
  19. 110  PRINT : PRINT 
  20. 115  GOSUB 200
  21. 120  PRINT D$;"PR#0"
  22. 130  HOME 
  23. 140  PRINT  CHR$(7);"ALL DONE!"
  24. 150  END 
  25. 200  PRINT 
  26. 210  FOR I = 1 TO 15
  27. 220 X =  INT((I/3 - INT(I/3)) *3 +.5)
  28. 230  IF X = 0  THEN  HTAB 30
  29. 240  IF X = 1  THEN  PRINT 
  30. 250  IF X = 2  THEN  HTAB 15
  31. 255  READ A$
  32. 260  PRINT C$(I);" ";A$;
  33. 270  NEXT 
  34. 280  PRINT 
  35. 290  RETURN 
  36. 500  PRINT "-----------------------------------------";: REM  41 -'S
  37. 510  RETURN 
  38. 1000  HOME 
  39. 1010  VTAB 21: HTAB 14: PRINT "LO-RES DUMP"
  40. 1020  HTAB 23: PRINT "BY GLENN TEMAN"
  41. 1030  FOR X = 1 TO 1500: NEXT X
  42. 1040  HOME 
  43. 1070  INPUT "PRINTER SLOT: ";PS
  44. 1080  DIM C$(15)
  45. 1090 C$(0) = " "
  46. 1100  FOR I = 1 TO 9:C$(I) =  STR$(I): NEXT I
  47. 1110  DATA  A,B,C,D,E,F
  48. 1120  FOR I = 10 TO 15: READ C$(I): NEXT 
  49. 1130 D$ =  CHR$(4)
  50. 1140 L$ =  CHR$(124)
  51. 1150  HOME : PRINT "AND AWAY WE GO..."
  52. 1160  FOR I = 1 TO 200: NEXT I
  53. 1170  PRINT D$;"PR#";PS
  54. 1180  RETURN 
  55. 2000  DATA  MAGENTA,DK BLUE,PURPLE,DK GREEN,GREY 1,MED BLUE
  56. 2010  DATA  LT BLUE,BROWN,ORANGE,GREY 2,PINK,LT GREEN,YELLOW,AQUA,WHITE